home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Rexx / SaveChangedDocs.bed < prev    next >
Text File  |  1997-12-03  |  435b  |  26 lines
  1. /*
  2. ** $VER: SaveChangedDocs.bed 1.0 (03.01.96)
  3. **
  4. ** Save all currently loaded documents which have been changed, but not saved,
  5. ** and optionally close all opened documents.
  6. **
  7. ** Modified by Marco Negri
  8. */
  9.  
  10. OPTIONS RESULTS
  11. PARSE ARG quit
  12.  
  13. quit = UPPER(quit)
  14.  
  15. ADDRESS BED
  16.  
  17. GetDocuments
  18. docs = RESULT
  19.  
  20. DO WHILE docs ~= ''
  21.   PARSE VAR docs '"'.'" ' port docs
  22.   ADDRESS VALUE port
  23.     SaveFile MODIFIED
  24.   IF quit = "QUIT" THEN CloseDoc
  25. END
  26.